home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #24 (Sep 87) / fortran source / printgraph source / PrintGraph.com < prev    next >
Text File  |  1987-08-09  |  3KB  |  97 lines
  1. * Listing 5
  2. * file:  PrintGraph.com
  3.  
  4. *
  5. * PrintGraph Fortran Program
  6. *
  7. * Copyright (c) 1987 Mark E. McBride
  8. *                    211 N. University Ave.
  9. *                    Oxford, OH  45056
  10. *
  11. * This file contains variable definitions
  12. * that will be common to the main program and 
  13. * the non-print related subroutines.
  14. * These include most of the toolbox structures
  15. * used throughout the program
  16. *
  17. *
  18. * general and toolbox variables
  19. *
  20.     integer*4 toolbx        ! toolbx.sub interface
  21.     integer*4 prport        ! print manager interface
  22.     integer*4 ctlprc        ! Create toolbox callable procs.
  23.     integer*4 n,dy,dx,x,y,turn,rder    ! Hilbert curve variables
  24.     integer track            ! Address of the track proc.
  25.     integer ftrack            ! This keeps IMPLICIT NONE happy.
  26.  
  27. * Declare ftrack as a subroutine.
  28.     external ftrack
  29.  
  30. *
  31. * handles
  32. *
  33.     integer*4 menuhandle        ! handle to menu
  34.     integer*4 pichandle        ! handle to picture
  35.     integer*4 oldPort        ! handle to oldport
  36.     integer*4 curshandle,cursptr    ! handle to cursor
  37.     integer*1 watch(68)        ! watch cursor record
  38. *
  39. * print manager structures
  40. *
  41.     integer*4 prrechdl        ! Handle to print record
  42.     integer*4 theprport        ! Pointer to printer grafport
  43.     integer*1 thestrec(26)        ! Status record for PRPICFILE
  44. *
  45. * dialog structures
  46. *
  47.     integer*4 dlg,itemno,itemhdl    ! general purpose dialog pointer
  48.     integer*2 ditemh,itemtype    ! item hit in dialog
  49. *
  50. * event strucutures
  51. *
  52.     integer*2 eventrecord(8)    ! overlying structure
  53.     integer*2 what            ! type of event:
  54.     integer*4 message        ! extra event information:
  55.     integer*4 when            ! time of event in 60ths of seconds
  56.     integer*2 where(2)        ! mouse location in global coordinates
  57.     integer*2 modifiers        ! state of mouse button and modifier keys:
  58. *
  59. * Menu and other selection constants
  60. *
  61.     integer*4 Apple,File,Edit
  62.     integer*4 About
  63.     integer*4 PSetUp,PrintPic,Quit
  64.     integer*4 Undo,Cut,Copy,Paste,Clear,ShowClip
  65.     integer*4 Black,White,Red,Green,Blue,Cyan,Magenta,Yellow
  66.     integer*4 top,left,bottom,right
  67. *
  68. * Colors and line size
  69. *
  70.     integer*4 colors(8)
  71.     integer*4 colorpick
  72.     integer*4 linepick
  73. *
  74. * Rectangles for general use
  75. *
  76.     integer*2 rect(4),rect1(4),rect2(4),rect3(4)
  77. *
  78. * common variable sets
  79. *
  80.     common /set1/menuhandle,pichandle,rect,rect1,rect2,rect3,
  81.      +  prrechdl,theprport,thestrec,dlg,itemno,itemhdl,ditemh,
  82.      +  itemtype,eventrecord(8),toolbx,ctlprc,track,ftrack,
  83.      +  prport,n,dy,dx,x,y,turn,rder,colorpick,linepick,
  84.      +  curshandle,cursptr,watch,colors,oldPort
  85.  
  86. *
  87. *  parameters
  88. *
  89.     parameter (top=1,left=2,bottom=3,right=4)
  90.     parameter (Apple=29,File=30,Edit=31)
  91.     parameter (About=1)
  92.     parameter (PSetUp=1,PrintPic=2,Quit=4)
  93.     parameter (Undo=1,Cut=3,Copy=4,Paste=5,Clear=6,ShowClip=8)
  94.     parameter (Black=1,White=2,Red=3,Green=4,Blue=5,Cyan=6)
  95.     parameter (Magenta=7,Yellow=8)
  96.     
  97.